0 POKE53280,0:POKE53281,0:GOTO100
1 PRINT"[147][151]":S=X:T=Y:FORI=1TO4
2 PN=PEEK(B+(S+XV)*M+T+YV):IFPEEK(B+(S-YV)*M+T+XV)<2THEN9
4 PRINTLEFT$(S9$,P(I))SPC(P(I-1))LEFT$(S1$,P(I)-P(I-1))
5 PRINTLEFT$(S9$,23-P(I))SPC(P(I-1))LEFT$(S2$,P(I)-P(I-1))
6 IFI<>1THENPRINTLEFT$(S9$,P(I-1)+1)SPC(P(I-1)-1)LEFT$(S4$,(11-P(I-1))*6);
7 IFPN>1THEN12
8 GOTO13
9 PRINTLEFT$(S9$,P(I-1)+1)SPC(P(I-1))LEFT$(S5$,(P(I)-P(I-1))*2)
10 PRINTLEFT$(S9$,22-P(I-1))SPC(P(I-1))LEFT$(S6$,(P(I)-P(I-1))*2)
11 IFPN>1ANDPN<>255THEN13
12 PRINTLEFT$(S9$,P(I)+1)SPC(P(I)-1)LEFT$(S4$,(11-P(I))*6);
13 IFPEEK(B+(S+YV)*M+T-XV)<2THEN19
14 PRINTLEFT$(S9$,P(I))SPC(22-P(I))LEFT$(S1$,P(I)-P(I-1))
15 PRINTLEFT$(S9$,23-P(I))SPC(22-P(I))LEFT$(S2$,P(I)-P(I-1));
16 IFI<>1THENPRINTLEFT$(S9$,P(I-1)+1)SPC(22-P(I-1))LEFT$(S3$,(11-P(I-1))*6-2);
17 IFPN>1THEN22
18 GOTO23
19 PRINTLEFT$(S9$,P(I))SPC(22-P(I))LEFT$(S6$,(P(I)-P(I-1))*2)
20 PRINTLEFT$(S9$,23-P(I))SPC(22-P(I))LEFT$(S5$,(P(I)-P(I-1))*2-1);
21 IFPN>1ANDPN<>255THEN23
22 PRINTLEFT$(S9$,P(I)+1)SPC(22-P(I))LEFT$(S3$,(11-P(I))*6-2);
23 IFPN=255THEN27
24 IFPN>1THEN28
25 PRINTLEFT$(S9$,P(I))SPC(P(I))LEFT$(S1$,(11-P(I))*2)
26 PRINTLEFT$(S9$,23-P(I))SPC(P(I))LEFT$(S2$,(11-P(I))*2);:RETURN
27 PRINTLEFT$(S9$,11)SPC(8)"ENDE[146]":RETURN
28 S=S+XV:T=T+YV:NEXT
29 PRINTLEFT$(S9$,11)SPC(10)"[205][206][157][157][206][205]":RETURN
30 FORI=1TOM-1:FORJ=1TOM-1:POKEB+I*M+J,1:NEXTJ,I
31 FORI=0TOM:POKEB+I,0:POKEB+M*M+I,0:POKEB+M*I,0:NEXT:POKEB+1,255:POKEB+M+1,2
32 N=1:FORI=1TOM-1STEP2:FORJ=1TOM-1STEP2:N=N+1:X=I:Y=J
33 IFRND(1)<.5THENXV=1:YV=0:GOTO34
34 XV=0:YV=1:IFPEEK(B+M*I+J)=1THEN38Y.
35 XX=X+XV*2:YY=Y+YV*2:IFXX<0ORXX>MORYY<0ORYY>MTHENNEXTJ,I:GOTO49
36 IFPEEK(B+XX*M+YY)<>1THENNEXTJ,I:GOTO49
37 POKEB+(X+XV)*M+Y+YV,N:X=XX:Y=YY:POKEB+X*M+Y,N:GOSUB45:GOTO35
38 POKEB+X*M+Y,N:XX=X+XV*2:YY=Y+YV*2:IFXX<0ORXX>MORYY<0ORYY>MTHEN41
39 IFPEEK(B+XX*M+YY)=1THEN44
40 IFPEEK(B+XX*M+YY)<>NTHENPOKEB+(X+XV)*M+Y+YV,N:NEXTJ,I:GOTO49
41 IFRND(1)<.5THENXV=-1:YV=0:GOTO42
42 XV=0:YV=-1:IFPEEK(B+(I+XV)*M+J+YV)=0THENT=XV:XV=YV:YV=T
43 POKEB+(I+XV)*M+J+YV,N:NEXTJ,I:GOTO49
44 POKEB+(X+XV)*M+Y+YV,N:X=XX:Y=YY:POKEB+X*M+Y,N:GOSUB45:GOTO38
45 P=RND(1):IFP<.25THENXV=1:YV=0:RETURN
46 IFP<.5THENXV=0:YV=1:RETURN
47 IFP<.75THENXV=-1:YV=0:RETURN
48 XV=0:YV=-1:RETURN
49 POKEB+FNX(0)*M+FNX(0)+1,2:POKEB+(FNX(0)+1)*M+FNX(0),2
50 X=FNX(0)+1:Y=FNX(0)+1:POKE36878,8:GOSUB45:TI$="000000"
51 POKE36875,215:FORI=1TO50:NEXT:POKE36875,0
52 GOSUB1
53 T$=MID$(TI$,3,2)+":"+RIGHT$(TI$,2):PRINTS9$T$;
54 IFCT=0THEN59
55 K=PEEK(56321):IF(KAND4)=0THENK=32:GOTO59
56 IF(KAND16)=0THENK=33:GOTO60
57 IF(KAND32)=0THENK=36:GOTO62
58 POKE37154,0:K=PEEK(37152):POKE3715{{55:IF(KAND128)=0THENK=30:GOTO61
59 K=PEEK(56321):IFK=239THENPOKE36874,204:GOTO65
60 IFK=253THENT=XV:XV=-YV:YV=T:GOTO51
61 IFK=254THENT=XV:XV=YV:YV=-T:GOTO51
62 IFK=251THENGOSUB73:FORI=1TO4000:NEXT:GOTO52
63 IFK=19THENGOSUB73:PRINTLEFT$(S9$,X+1)SPC(Y)"*":GOTO69
64 GOTO53
65 XX=X+XV:YY=Y+YV:PN=PEEK(B+XX*M+YY):POKE36874,0:IFPN<2GOTO53
67 IFPN<>255THENX=XX:Y=YY:GOTO52
68 POKE36874,248:POKE36879,52:FORI=1TO1000:NEXT:POKE36879,27:POKE36874,0:GOSUB73
69 POKE198,0:PRINTS9$"ZEIT:"T$;
72 RUN
73 PRINT"[147]";:FORI=0TOM:FORJ=0TOM
74 IFPEEK(B+I*M+J)<2THENPRINT" [146]";:GOTO76
75 PRINT" ";
76 NEXTJ:PRINT:NEXTI:RETURN
77 POKE51,168:POKE52,28:POKE55,168:POKE56,28:CLR:B=7337
78 DEFFNX(X)=INT(RND(1)*M/4+M/5)*2:DIMP(5):FORI=1TO20
79 S1$=S1$+CHR$(164):S2$=S2$+CHR$(163):S3$=S3$+CHR$(165)+"[157]":S4$=S4$+CHR$(167)+"[157]"
80 NEXT:FORI=1TO4:S5$=S5$+"[205]":S6$=S6$+"[206][145]":NEXT
81 S9$=""
82 FORI=0TO5:READP(I):NEXT:DATA0,1,5,8,10,11
83 INPUT"[147]SPIELGRAD (4-9)";M
84 M=2*M:GOTO30
100 PRINT"[147]              LABYRINTH"
110 PRINT"
120 [153]"  (W) 1994 BY KEEN ACID / DEUTSCH 1994"
160 [153]"     SYS _      -  DEFLINKS"
165 [153]"     SYS 1      -  DEFRECHTS"
170 [153]"     SYS SPACE  -  DEFGERADEAUS"
180 [153]"     SYS CTRL   -  DEFKARTENUEBERSICHT"
190 [153]"            DRUECKE SPACE"
200 [161]A$:[139]A$[178]""[167]200
210 [139]A$[178]" "[167][137]77